home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / bc20p1.zip / SCROLL.BAT < prev    next >
DOS Batch File  |  1991-03-08  |  2KB  |  68 lines

  1. echo off
  2. if not exist SCROLL.OBS goto ERROR_NOOBJ
  3.  
  4. if not exist %1cs.lib goto NOSMALLLIB
  5. echo Patching small library...
  6. copy SCROLL.OBS SCROLL.OBJ
  7. tlib %1cs.lib +- SCROLL.OBJ
  8. del SCROLL.OBJ
  9. if errorlevel 1 goto ERROR_NOTLIB
  10. goto MEDIUM
  11. :NOSMALLLIB
  12. echo Cannot find CS.LIB to patch small library.
  13.  
  14. :MEDIUM
  15. if not exist %1cm.lib goto NOMEDLIB
  16. echo Patching medium library...
  17. copy SCROLL.OBM SCROLL.OBJ
  18. tlib %1cm.lib +- SCROLL.OBJ
  19. del SCROLL.OBJ
  20. goto COMPACT
  21. :NOMEDLIB
  22. echo Cannot find CM.LIB to patch medium library.
  23.  
  24. :COMPACT
  25. if not exist %1cc.lib goto NOCOMPACTLIB
  26. echo Patching compact library...
  27. copy SCROLL.OBC SCROLL.OBJ
  28. tlib %1cc.lib +- SCROLL.OBJ
  29. del SCROLL.OBJ
  30. goto LARGE
  31. :NOCOMPACTLIB
  32. echo Cannot find CC.LIB to patch compact library.
  33.  
  34. :LARGE
  35. if not exist %1cl.lib goto NOLARGELIB
  36. echo Patching large library...
  37. copy SCROLL.OBL SCROLL.OBJ
  38. tlib %1cl.lib +- SCROLL.OBJ
  39. del SCROLL.OBJ
  40. goto HUGE
  41. :NOLARGELIB
  42. echo Cannot find CL.LIB to patch large library.
  43.  
  44. :HUGE
  45. if not exist %1ch.lib goto NOHUGELIB
  46. echo Patching huge library...
  47. copy SCROLL.OBH SCROLL.OBJ
  48. tlib %1ch.lib +- SCROLL.OBJ
  49. del SCROLL.OBJ
  50. goto DONE
  51. :NOHUGELIB
  52. echo Cannot find CH.LIB to patch huge library.
  53. goto DONE
  54.  
  55. :ERROR_NOOBJ
  56. echo The patch object module SCROLL is not in the current directory.
  57. echo Cannot patch libraries.
  58. goto DONE
  59.  
  60. :ERROR_NOTLIB
  61. echo A problem was encountered executing TLIB.  Either the Turbo Librarian
  62. echo cannot be located along your DOS path, or an error occurred.  Consult
  63. echo your Turbo C++ Users Guide for more information on why TLIB might not
  64. echo be operating correctly.
  65.  
  66. :DONE
  67. echo Done.
  68.